home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / macro28.lha / Macro / FinsGold / TeX / enumerate.ged (.txt) < prev    next >
Encoding:
LaTeX Document  |  1994-04-24  |  1.6 KB  |  47 lines
  1. /* $VER: enumerate V 0.5 (24.04.94) 
  2.  1994 Fin Schuppenhauer */
  3. /**   
  4.       Erzeugt ein enumerate-Umgebung und fragt nach Anzahl der
  5.       zu erzeugenden Punkte (\item's).
  6.       Meine Anschrift:
  7.       Fin Schuppenhauer
  8.       Brau
  9. park 10
  10.       20537 Hamburg
  11.       (Germany)
  12.       E-Mail: schuppenhauer@rzdspc2.informatik.uni-hamburg.de
  13.         oder: 1schuppe@rzdspc2.informatik.uni-hamburg.de
  14. OPTIONS RESULTS                             /* enable return codes     */
  15. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  16.     address 'GOLDED.1'
  17. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  18. OPTIONS FAILAT 6                            /* ignore warnings         */
  19. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  20. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  21. 'QUERY CAT'
  22. german = (result = "deutsch")
  23. if german then
  24.    'REQUEST TITLE="\enumerate" BODY="Anzahl der Punkte (\item''s) eingeben:" MIN=0 LONG VAR ITEMS'
  25.    'REQUEST TITLE="\enumerate" BODY="Enter number of \item''s:" MIN=0 LONG VAR ITEMS'
  26. if (rc = 0) & (ITEMS > 0) then do
  27.    'DOWN'
  28.    'INSERT LINE'
  29.    'TEXT STAY T="\begin{enumerate}"'
  30.    'PING SLOT=0'
  31.    do ITEMS
  32.       'DOWN'
  33.       'INSERT LINE'
  34.       'TEXT STAY T="   \item"'
  35.    end
  36.    'DOWN'
  37.    'INSERT LINE'
  38.    'TEXT STAY T="\end{enumerate}"'
  39.    'PONG SLOT=0'
  40.    'DOWN'
  41.    'GOTO STEP=9'
  42. /* ---------------------------- END OF YOUR CODE --------------------- */
  43. 'UNLOCK' /* VERY important: unlock GUI */
  44. SYNTAX:
  45. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  46. 'UNLOCK'
  47.